{	Problem: http://codeforces.ru/problemset/problem/41/C
	Verdict: Accepted
}
var s,r:string; f:boolean; k:longint;
begin
readln(s);
r:='';
f:=false;
if pos('at',s)=1 then begin
  r:='at';
  delete(s,1,2);
  f:=true;
end;
if (pos('dot',s)=1) and (not f) then begin
  r:='dot';
  delete(s,1,3);
  f:=true;
end;
k:=pos('at',s);
delete(s,k,2);
Insert('@',s,k);
k:=pos('dot',s);
while (k>0) and (k<>length(s)-2) do begin
  delete(s,k,3);
  insert('.',s,k);
  k:=pos('dot',s);
end;
write(r,s);
end.